home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #4 / Amiga Plus CD - 1996 - No. 4.iso / pd / daten / flm_v2.17 / install-flm < prev    next >
Text File  |  1996-02-11  |  6KB  |  262 lines
  1. ;Install Script for Shareware Version of FLM (noDisk) (c) 1995 Denis Unger
  2.  
  3. (if (= @language "deutsch")
  4. ; German Installation
  5. (
  6.  (set default-lang 1)
  7.  (set #lpath "deutsch")
  8.  (set #flmdestination
  9.    (cat "Bitte Zielverzeichnis von FLM auswählen.\n"
  10.         "Ein Verzeichnis FLM wird automatisch erstellt."
  11.    )
  12.  )
  13.  (set #copyhothelplib_nc "Kopiere hothelplib.deutsch ...")
  14.  (set #copyhothelp3prefs "Kopiere Prefs-Datei für Hothelp ...")
  15.  (set #copyflm_catalog "Kopiere flm.catalog ...")
  16.  (set #copyhothelplib_catalog "Kopiere hothelplib.catalog ...")
  17.  (set #copyhothelp_lib "Kopiere hothelp.library ...")
  18.  (set #copyhothelp_handler "Kopiere HothelpHandler ...")
  19.  (set #copyflmfiles "Kopiere FLM-Dateien ...")
  20.  (set #copyonlinehelp "Kopiere Online-Hilfe ...")
  21.  (set #instmodetext1 "Shareware-Version")
  22.  (set #instmodetext2 "Update für registrierte Nutzer")
  23.  (set #instmodeprompt "Bitte auswählen")
  24.  (set #flmupdate_dest "Bitte FLM-Verzeichnis auswählen")
  25.  (set #mustnotupdate "FLM muß nicht geupdatet werden.")
  26.  (set #noflmfound "FLM befindet sich nicht\nim angegebene Verzeichnis.")
  27. ))
  28. (if (= @language "english")
  29. ; English Installation
  30. (
  31.  (set default-lang 2)
  32.  (set #lpath "english")
  33.  (set #flmdestination
  34.    (cat "Please choose destination directory for FLM.\n"
  35.         "A directory FLM will be created."
  36.    )
  37.  )
  38.  (set #copyhothelplib_nc "Copying hothelplib.english ...")
  39.  (set #copyhothelp3prefs "Copying prefs-file for Hothelp ...")
  40.  (set #copyflm_catalog "Copying flm.catalog ...")
  41.  (set #copyhothelplib_catalog "Copying hothelplib.catalog ...")
  42.  (set #copyhothelp_lib "Copying hothelp.library ...")
  43.  (set #copyhothelphandler "Copying HothelpHandler ...")
  44.  (set #copyflmfiles "Copying FLM file ...")
  45.  (set #copyonlinehelp "Copying Online help ...")
  46.  (set #instmodetext1 "Shareware version")
  47.  (set #instmodetext2 "Update for registered user's")
  48.  (set #instmodeprompt "Please choose")
  49.  (set #flmupdate_dest "Please choose FLM directory")
  50.  (set #mustnotupdate "You must not update FLM")
  51.  (set #noflmfound "Can not find the programm FLM")
  52. ))
  53. (if (= @language "français")
  54. ; French Installation
  55. (
  56.  (set default-lang 3)
  57.  (set #lpath "français")
  58.  (set #flmdestination
  59.    (cat "Choisissez le répertoire destination de FLM.\n"
  60.         "Création du répertoire FLM..."
  61.    )
  62.  )
  63.  (set #copyhothelplib_nc "Copie de hothelplib.english ...")
  64.  (set #copyhothelp3prefs "Copie du fichier prefs pour Hothelp ...")
  65.  (set #copyflm_catalog "Copie de flm.catalog ...")
  66.  (set #copyhothelplib_catalog "Copie de hothelplib.catalog ...")
  67.  (set #copyhothelp_lib "Copie de la hothelp.library ...")
  68.  (set #copyhothelphandler "Copie du HothelpHandler ...")
  69.  (set #copyflmfiles "Copie des fichiers FLM ...")
  70.  (set #copyonlinehelp "Copie de l'Aide en ligne ...")
  71.  (set #instmodetext1 "Shareware version")
  72.  (set #instmodetext2 "Update for registered user's")
  73.  (set #instmodeprompt "Please choose")
  74.  (set #flmupdate_dest "Please choose FLM directory")
  75.  (set #mustnotupdate "You must not update FLM")
  76.  (set #noflmfound "Can not find the programm FLM")
  77. ))
  78.  
  79. ;get workbench version
  80. (set vernum (getversion "libs:version.library"))
  81. (set wbver (/ vernum 65536))
  82.  
  83. (complete 0)
  84.  
  85. (set instmode
  86.     (askchoice
  87.         (choices #instmodetext1 #instmodetext2)
  88.         (prompt #instmodeprompt)
  89.         (help "")
  90.     )
  91. )
  92.  
  93. (if (= instmode 0)
  94. (
  95. ;Shareware-Version
  96.  (set flm-path
  97.     (askdir
  98.         (prompt #flmdestination)
  99.         (help "")
  100.         (default @default-dest)
  101.     )
  102.  )
  103.  (set @default-dest (tackon flm-path "FLM"))
  104.  
  105.  (makedir
  106.     (@default-dest)
  107.     (infos)
  108.  )
  109. ;now a directory FLM exists
  110.  
  111.  (complete 10)
  112.  
  113. ;copy hothelp needed files ...
  114.  (copyfiles
  115.     (prompt #copyhothelplib_nc)
  116.     (help "")
  117.     (all)
  118.     (source (cat "hothelp/" #lpath))
  119.     (dest @default-dest)
  120.  )
  121.  
  122. ;copy catalogs ...
  123.  (if (> wbver 37)
  124.   (copylib
  125.     (prompt #copyhothelplib_catalog)
  126.     (help "")
  127.     (source (cat "locale/catalogs/" #lpath))
  128.     (dest (cat "locale:catalogs/" #lpath))
  129.     (confirm)
  130.   )
  131.  )
  132.  
  133.  (complete 20)
  134.  
  135.  (copyfiles
  136.     (prompt #copyflmfiles)
  137.     (help "")
  138.     (all)
  139.     (source "FLM")
  140.     (dest @default-dest)
  141.  )
  142.  
  143.  (complete 40)
  144.  
  145.  (copyfiles
  146.     (prompt #copyflmfiles)
  147.     (help "")
  148.     (all)
  149.     (source (cat "otherfiles/" #lpath))
  150.     (dest @default-dest)
  151.  )
  152.  
  153.  (complete 80)
  154.  
  155. ;Online-Help
  156.  (copyfiles
  157.   (prompt #copyonlinehelp)
  158.   (help "")
  159.   (all)
  160.   (source (cat "projekte/" #lpath))
  161.   (dest (cat @default-dest "/Projekte"))
  162.  )
  163.  
  164.  (complete 90)
  165.  
  166.  (copylib
  167.     (prompt #copyhothelp_lib)
  168.     (help "")
  169.     (source "libs/hothelp.library")
  170.     (dest "libs:")
  171.     (confirm)
  172.  )
  173.  
  174.  (copylib
  175.     (prompt #copyhothelphandler)
  176.     (help "")
  177.     (source "l/HotHelpHandler")
  178.     (dest "l:")
  179.     (confirm)
  180.  )
  181.  
  182.  (complete 100)
  183. )
  184. (
  185. ;********************
  186. ;****** update ******
  187. ;********************
  188.  (complete 0)
  189.  
  190.  (set flm-path
  191.     (askdir
  192.         (prompt #flmupdate_dest)
  193.         (help "")
  194.         (default @default-dest)
  195.     )
  196.  )
  197.  (set @default-dest flm-path)
  198.  
  199.  (set test (exists (cat @default-dest "/FLM")))
  200.  (if (= test 1)
  201.   (
  202.    (set test (getversion (cat @default-dest "/FLM")))
  203.    (set flmoldver1 (/ test 65536))
  204.    (set flmoldver2 (- test (* flmoldver1 65536)))
  205.   )
  206.   (
  207.    (message #noflmfound)
  208.    (exit)
  209.   )
  210.  )
  211.  
  212.  
  213.  (set test (getversion "FLMr/FLM"))
  214.  (set flmnewver1 (/ test 65536))
  215.  (set flmnewver2 (- test (* flmnewver1 65536)))
  216. ; (message flmoldver1 "." flmoldver2 "-" flmnewver1 "." flmnewver2)
  217.  
  218.  (if (<= flmnewver2 flmoldver2)
  219.   (
  220.    (message #mustnotupdate)
  221.    (exit)
  222.   )
  223.  )
  224.  
  225. ;Online-Help
  226.  (copyfiles
  227.   (prompt #copyonlinehelp)
  228.   (help "")
  229.   (all)
  230.   (source (cat "projekte/" #lpath))
  231.   (dest (cat @default-dest "/Projekte"))
  232.  )
  233.  
  234.  (complete 20)
  235.  
  236. ;copy catalogs ...
  237.  (if (> wbver 37)
  238.   (copylib
  239.     (prompt #copyflm_catalog)
  240.     (help "")
  241.     (source (cat "locale/catalogs/" #lpath))
  242.     (dest (cat "locale:catalogs/" #lpath))
  243.     (confirm)
  244.   )
  245.  )
  246.  
  247.  (complete 30)
  248.  
  249.  (copyfiles
  250.     (prompt #copyflmfiles)
  251.     (help "")
  252.     (all)
  253.     (source "FLMr")
  254.     (dest @default-dest)
  255.  )
  256.  
  257.  
  258.  (complete 100)
  259. )
  260. )
  261. (exit)
  262.